Strict

Import agfx

Global myTmpScreen:TTmpScreen

Class TAgfx_test_app Extends TFramework

	Method OnCreate:Int()
		
		Super.OnCreate()
				
		myTmpScreen = New TTmpScreen		
		myTmpScreen.Prepare()
		
		Return 0
	End

End


Class TTmpScreen Extends TScreen
	
	Field goo_cursor:TCursor

	' START when app is created
	Method Start:Void()
		Self.goo_cursor = New TCursor(16,8,8,30,11.0)
		
	End
	
	' main app logic loop update
	Method Update:Void()
		Self.goo_cursor.Update()
		'If MOUSE.Hit() Then Self.goo_cursor.ResetPosition()
		If MOUSE.Down() Then  Self.goo_cursor.SetPosition(MOUSE.x,MOUSE.y)
	End
	
	' main app render loop
	Method Render:Void()
		Cls (128,128,128)
		Self.goo_cursor.Render()
	End
End
